Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/0292.ZIP/GENEPROG.ARC/SHORTREV.PRG

Text File | 1985-12-21 | 1KB | 46 lines

* SUBROUTINE SHORTREV   3/29/85                       SHORTREV
*
SET DEVICE TO SCREEN
USE GENE INDEX SNINDX
ENABLE=" "
DO WHILE .NOT.ENABLE="S"
  CLEAR
  CLEAR GETS
  @ 1,5  SAY "LAST NAME     " GET LAST
  @ 1,33 SAY "FIRST "         GET FIRST
  @ 1,51 SAY "MIDDLE "        GET MIDDLE
  @ 1,70 SAY "NUM "           GET NUM
  @ 2,5  SAY "CHART         " GET CHART
  @ 2,30 SAY "DESCENDANT    " GET DESCENDANT
  @ 3,5  SAY "RESIDENCES    " GET RESIDENCES
  @ 4,5  SAY "BORN          " GET DOB
  @ 4,30 SAY "PLACE "         GET POB
  @ 5,5  SAY "DIED          " GET DOD
  @ 5,30 SAY "PLACE "         GET POD
  @ 6,5  SAY "SPOUSE        " GET SPOUSE
  @ 7,5  SAY "MARRIED       " GET DMAR
  @ 7,30 SAY "PLACE "         GET PMAR
  @ 8,5  SAY "MOTHER        " GET MOTHER
  @ 9,5  SAY "FATHER        " GET FATHER
  @ 10,5 SAY "CHILDREN 1&6  " GET CHILD1
  @ 11,5 SAY "         2&7  " GET CHILD2
  @ 12,5 SAY "         3&8  " GET CHILD3
  @ 13,5 SAY "         4&9  " GET CHILD4
  @ 14,5 SAY "         5&10 " GET CHILD5
  @ 15,5 SAY "SISTERS       " GET SISTERS
  @ 16,5 SAY "BROTHERS      " GET BROTHERS
  @ 17,5 SAY "OCCUPATION    " GET OCCUPATION
  @ 18,5 SAY "REFERENCES    " GET REFERENCE
  @ 19,5 SAY "UPDATED       " GET UPDATE
  @ 22,5 SAY "ENTER S TO END REVIEW OR RETURN TO CONTINUE" GET ENABLE
  READ
  SKIP
ENDDO
CLEAR GETS
CLEAR
RETURN